10 REM ********************************
15 REM *                              *
20 REM *          DATA-MAKER          *
30 REM *                              *
40 REM *        JOERG MATERNA         *
50 REM *        BECKUMER STR.91       *
60 REM *        4730 AHLEN            *
65 REM *                              *
70 REM ********************************
75 REM
80 PRINT CHR$(147)
100 FOR A=49152 TO 49986:READ X:POKE A,X:SU=SU+X:NEXT
105 IF SU<>102090 THEN PRINT "DATA-FEHLER"
106 PRINT "PROGRAMM OK"
110 DATA169,0,141,65,195,32,233,193,132,251,133,252,32,233,193,140,54,195,141,55
120 DATA195,32,233,193,140,59,195,141,60,195,32,253,174,32,158,183,142,63,195,138
130 DATA208,3,76,58,194,165,252,205,55,195,144,12,208,7,165,251,205,54,195,144
140 DATA3,76,68,194,56,165,45,233,2,141,61,195,133,253,165,46,233,0,141,62,195
150 DATA133,254,160,2,173,59,195,145,253,200,173,60,195,145,253,200,169,129,145
160 DATA253,200,169,65,145,253,200,169,178,145,253,200,152,72,165,251,166,252,32
170 DATA243,193,141,64,195,104,168,32,7,194,169,164,145,253,200,152,72,173,54,195
180 DATA174,55,195,32,243,193,141,64,195,104,168,32,7,194,169,58,145,253,200,169
190 DATA135,145,253,200,169,88,145,253,200,169,58,145,253,200,169,151,145,253,200
200 DATA169,65,145,253,200,169,44,145,253,200,169,88,145,253,200,169,58,145,253
210 DATA200,169,130,145,253,76,52,193,160,2,173,59,195,145,253,200,173,60,195,145
220 DATA253,200,169,131,145,253,200,152,72,160,0,177,251,32,160,193,104,168,173
230 DATA56,195,201,48,240,3,145,253,200,173,57,195,201,48,208,10,173,56,195,201
240 DATA48,240,6,173,57,195,145,253,200,173,58,195,145,253,165,251,205,54,195,208
250 DATA13,165,252,205,55,195,208,6,238,65,195,76,52,193,230,251,208,2,230,252
260 DATA192,74,176,8,200,169,44,145,253,76,223,192,200,169,0,145,253,200,140,64
270 DATA195,160,0,24,165,253,109,64,195,145,253,141,64,195,165,254,105,0,200,145
280 DATA253,133,254,197,56,208,3,76,45,194,173,64,195,133,253,173,65,195,208,28
290 DATA24,173,59,195,109,63,195,141,59,195,144,13,238,60,195,173,60,195,201,250
300 DATA208,3,76,32,194,76,205,192,24,165,253,105,2,133,45,165,254,133,46,144,2
310 DATA230,46,160,0,152,145,253,200,145,253,32,78,194,32,96,166,76,134,227,162
320 DATA0,142,56,195,142,57,195,142,58,195,201,100,144,8,233,100,238,56,195,76
330 DATA171,193,201,10,144,8,233,10,238,57,195,76,183,193,201,0,240,8,238,58,195
340 DATA233,1,76,195,193,24,169,48,109,56,195,141,56,195,169,48,109,57,195,141
350 DATA57,195,169,48,109,58,195,141,58,195,96,32,253,174,32,138,173,32,247,183
360 DATA96,133,99,134,98,162,144,56,32,73,188,32,223,189,32,135,180,32,166,182
370 DATA96,162,0,165,34,141,20,194,165,35,141,21,194,189,0,1,145,253,200,232,206
380 DATA64,195,208,244,96,32,86,194,169,120,160,194,32,30,171,76,154,193,32,86
390 DATA194,169,155,160,194,32,30,171,76,154,193,169,192,160,194,32,30,171,76,154
400 DATA193,169,229,160,194,32,30,171,76,154,193,169,11,160,195,32,30,171,96,173
410 DATA61,195,133,253,173,62,195,133,254,160,0,152,145,253,200,145,253,24,173
420 DATA61,195,105,2,133,45,173,62,195,105,0,133,46,96,18,90,69,73,76,69,78,78
430 DATA85,77,77,69,82,32,71,82,79,69,83,83,69,82,32,65,76,83,32,54,51,57,57,57
440 DATA33,146,0,18,70,82,69,73,69,82,32,83,80,69,73,67,72,69,82,80,76,65,84,90
450 DATA32,82,69,73,67,72,84,32,78,73,67,72,84,33,146,0,18,48,32,65,76,83,32,83
460 DATA67,72,82,73,84,84,87,69,73,84,69,32,78,73,67,72,84,32,77,79,69,71,76,73
470 DATA67,72,33,146,0,18,65,78,70,65,78,71,83,65,68,82,69,83,83,69,32,62,32,69
480 DATA78,68,65,68,82,69,83,83,69,46,70,69,72,76,69,82,33,146,0,18,42,32,68,65
490 DATA84,65,32,69,82,90,69,85,71,69,82,32,70,69,82,84,73,71,33,32,40,67,41,32
500 DATA74,46,77,65,84,69,82,78,65,46,32,42,146,0,66,195,49,52,50,244,1,1,8,10
510 DATA48,0,0